home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / CPP / WFC010.ZIP / TEST / TCRAS.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1995-11-19  |  8.6 KB  |  276 lines
  1. #include "test.h"
  2. #pragma hdrstop
  3.  
  4. VOID PASCAL dial_monitor( HRASCONN     connection_handle, 
  5.                           UINT         message, 
  6.                           RASCONNSTATE connection_state,
  7.                           DWORD        error_code,
  8.                           DWORD        extended_error_code )
  9. {
  10.    switch( connection_state )
  11.    {
  12.       case RASCS_OpenPort:
  13.  
  14.          TRACE( "RASCS_OpenPort : The communication port is about to be opened.\n" );
  15.          break;
  16.  
  17.       case RASCS_PortOpened:
  18.  
  19.          TRACE( "RASCS_PortOpened : The communication port has been opened successfully.\n" );
  20.          break;
  21.  
  22.       case RASCS_ConnectDevice:
  23.  
  24.          TRACE( "RASCS_ConnectDevice : A device is about to be connected. RasGetConnectStatus can be called to determine the name and type of the device being connected.\n" );
  25.          break;
  26.  
  27.       case RASCS_DeviceConnected:
  28.  
  29.          TRACE( "RASCS_DeviceConnected : A device has connected successfully. RasGetConnectStatus can be called to determine the name and type of the device being connected.\n" );
  30.          break;
  31.  
  32.       case RASCS_AllDevicesConnected:
  33.  
  34.          TRACE( "RASCS_AllDevicesConnected : All devices in the device chain have successfully connected. At this point, the physical link is established.\n" );
  35.          break;
  36.  
  37.       case RASCS_Authenticate:
  38.  
  39.          TRACE( "RASCS_Authenticate :     The authentication process is starting. Remote access does not allow the remote client to generate any traffic on the LAN until authentication has been successfully completed. \n" );
  40.          break;
  41.  
  42.       case RASCS_AuthNotify:
  43.  
  44.          TRACE( "RASCS_AuthNotify : An authentication event has occurred. If dwError is zero, this event will be immediately followed by one of the more specific authentication states following. If dwError is nonzero, authentication has failed, and the error value indicates why.\n" );
  45.          break;
  46.  
  47.       case RASCS_AuthRetry:
  48.  
  49.          TRACE( "RASCS_AuthRetry : The client has requested another validation attempt with a new username/password/domain. This state does not occur in Windows NT version 3.1.\n" );
  50.          break;
  51.  
  52.       case RASCS_AuthCallback:
  53.  
  54.          TRACE( "RASCS_AuthCallback : The remote access server has requested a callback number. This occurs only if the user has \"Set By Caller\" callback privilege on the server.\n" );
  55.          break;
  56.  
  57.       case RASCS_AuthChangePassword:
  58.  
  59.          TRACE( "RASCS_AuthChangePassword : The client has requested to change the password on the account. This state does not occur in Windows NT version 3.1.\n" );
  60.          break;
  61.  
  62.       case RASCS_AuthProject:
  63.  
  64.          TRACE( "RASCS_AuthProject : The projection phase is starting.\n" );
  65.          break;
  66.  
  67.       case RASCS_AuthLinkSpeed:
  68.  
  69.          TRACE( "RASCS_AuthLinkSpeed : The link-speed calculation phase is starting.\n" );
  70.          break;
  71.  
  72.       case RASCS_AuthAck:
  73.  
  74.          TRACE( "RASCS_AuthAck : An authentication request is being acknowledged.\n" );
  75.          break;
  76.  
  77.       case RASCS_ReAuthenticate:
  78.  
  79.          TRACE( "RASCS_ReAuthenticate : Reauthentication (after callback) is starting.\n" );
  80.          break;
  81.  
  82.       case RASCS_Authenticated:
  83.  
  84.          TRACE( "RASCS_Authenticated : The client has successfully completed authentication.\n" );
  85.          break;
  86.  
  87.       case RASCS_PrepareForCallback:
  88.  
  89.          TRACE( "RASCS_PrepareForCallback : The line is about to disconnect in preparation for callback.\n" );
  90.          break;
  91.  
  92.       case RASCS_WaitForModemReset:
  93.  
  94.          TRACE( "RASCS_WaitForModemReset : The client is delaying in order to give the modem time to reset itself in preparation for callback.\n" );
  95.          break;
  96.  
  97.       case RASCS_WaitForCallback:
  98.  
  99.          TRACE( "RASCS_WaitForCallback : The client is waiting for an incoming call from the remote access server.\n" );
  100.          break;
  101.  
  102.       case RASCS_Projected:
  103.  
  104.          TRACE( "RASCS_Projected : This state occurs after the RASCS_AuthProject state. It indicates that projection result information is available. You can access the projection result information by calling RasGetProjectionInfo.\n" );
  105.          break;
  106.  
  107. #if (WINVER >= 0x400)
  108.  
  109.       case RASCS_StartAuthentication:    // Windows 95 only 
  110.  
  111.          TRACE( "RASCS_StartAuthentication : Windows 95 only: Indicates that user authentication is being initiated or retried.\n" );
  112.          break;
  113.  
  114.       case RASCS_CallbackComplete:       // Windows 95 only 
  115.  
  116.          TRACE( "RASCS_CallbackComplete : Windows 95 only: Indicates that the client has been called back and is about to resume authentication.\n" );
  117.          break;
  118.  
  119.       case RASCS_LogonNetwork:           // Windows 95 only 
  120.  
  121.          TRACE( "RASCS_LogonNetwork : Windows 95 only: Indicates that the client is logging on to the network.\n" );
  122.          break;
  123.  
  124. #endif 
  125.  
  126.       case RASCS_Interactive:
  127.  
  128.          TRACE( "RASCS_Interactive : This state corresponds to the terminal state supported by RASPHONE.EXE. This state does not occur in Windows NT version 3.1.\n" );
  129.          break;
  130.  
  131.       case RASCS_RetryAuthentication:
  132.  
  133.          TRACE( "RASCS_RetryAuthentication : This state corresponds to the retry authentication state supported by RASPHONE.EXE. This state does not occur in Windows NT version 3.1.\n" );
  134.          break;
  135.  
  136.       case RASCS_CallbackSetByCaller:
  137.  
  138.          TRACE( "RASCS_CallbackSetByCaller : This state corresponds to the Callback state supported by RASPHONE.EXE. This state does not occur in Windows NT version 3.1.\n" );
  139.          break;
  140.  
  141.       case RASCS_PasswordExpired:
  142.  
  143.          TRACE( "RASCS_PasswordExpired : This state corresponds to the change password state supported by RASPHONE.EXE. This state does not occur in Windows NT version 3.1.\n" );
  144.          break;
  145.  
  146.       case RASCS_Connected:
  147.  
  148.          TRACE( "RASCS_Connected : Successful connection.\n" );
  149.          break;
  150.  
  151.       case RASCS_Disconnected:
  152.  
  153.          TRACE( "RASCS_Disconnected : Disconnection or failed connection.\n" );
  154.          break;
  155.  
  156.       default:
  157.  
  158.          if ( connection_state != 0 )
  159.          {
  160.             TCHAR debug_string[ 99 ];
  161.  
  162.             wsprintf( debug_string, (LPCTSTR) TEXT( "Unknown connection state %d\n" ), connection_state );
  163.             TRACE( debug_string );
  164.          }
  165.  
  166.          break;
  167.    }
  168.  
  169.    switch( extended_error_code )
  170.    {
  171.       case ERROR_SERVER_NOT_RESPONDING:
  172.  
  173.          TRACE( "   Extended Error: Server not responding\n" );
  174.          break;
  175.  
  176.       case ERROR_NETBIOS_ERROR:
  177.  
  178.          TRACE( "   Extended Error: NetBIOS error\n" );
  179.          break;
  180.  
  181.       case ERROR_AUTH_INTERNAL:
  182.  
  183.          TRACE( "   Extended Error: Internal Diagnostics Code\n" );
  184.          break;
  185.  
  186.       case ERROR_CANNOT_GET_LANA:
  187.  
  188.          TRACE( "   Extended Error: Routing error code\n" );
  189.          break;
  190.  
  191.       default:
  192.  
  193.          if ( extended_error_code != 0 )
  194.          {
  195.             TCHAR debug_string[ 99 ];
  196.  
  197.             wsprintf( debug_string, (LPCTSTR) TEXT( "Unknown extended error code %lu\n" ), extended_error_code );
  198.             TRACE( debug_string );
  199.          }
  200.  
  201.          break;
  202.    }
  203. }
  204.  
  205. void test_CRAS( void )
  206. {
  207.    CRemoteAccessService ras;
  208.  
  209.    CStringArray strings;
  210.  
  211.    ras.SetConnectionCallback( dial_monitor );
  212.    ras.SetDialOptions( CRemoteAccessService::dialAcceptPausedStates );
  213.  
  214.    if ( ras.GetPhoneBookEntries( strings ) == TRUE )
  215.    {
  216.       DWORD index = 0;
  217.       DWORD number_of_entries = strings.GetSize();
  218.  
  219.       TRACE( "Phone Book Entries:\n" );
  220.  
  221.       while( index < number_of_entries )
  222.       {
  223.          TRACE1( "\"%s\"\n", (const char *) strings[ index ] );
  224.          index++;
  225.       }
  226.    }
  227.  
  228.    strings.RemoveAll();
  229.  
  230.    if ( ras.GetConnections( strings ) == TRUE )
  231.    {
  232.       DWORD index = 0;
  233.       DWORD number_of_entries = strings.GetSize();
  234.  
  235.       TRACE( "\nCurrent Connections:\n" );
  236.  
  237.       while( index < number_of_entries )
  238.       {
  239.          TRACE1( "\"%s\"\n", (const char *) strings[ index ] );
  240.          index++;
  241.       }
  242.    }
  243.  
  244.    if ( ras.Open( "EPLORER" ) != TRUE )
  245.    {
  246.       CString error_string;
  247.       ras.GetErrorString( error_string );
  248.       TRACE1( "Ras Open failed with \"%s\"!\n", (const char *) error_string );
  249.    }
  250.    else
  251.    {
  252.       TRACE( "RAS Open!\n" );
  253.    }
  254.  
  255.    strings.RemoveAll();
  256.  
  257.    if ( ras.GetConnections( strings ) == TRUE )
  258.    {
  259.       DWORD index = 0;
  260.       DWORD number_of_entries = strings.GetSize();
  261.  
  262.       TRACE( "\nCurrent Connections:\n" );
  263.  
  264.       while( index < number_of_entries )
  265.       {
  266.          TRACE1( "\"%s\"\n", (const char *) strings[ index ] );
  267.          index++;
  268.       }
  269.    }
  270.  
  271.    if ( ras.HangUp( "EPLORER" ) == TRUE )
  272.    {
  273.       TRACE( "Hangup OK\n" );
  274.    }
  275. }
  276.